home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 March
/
1987-03.d64
/
graphic modes
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
70 lines
10 c=0:for i=0 to 31:read n:c=c+n:poke 828+i,n:next
20 ifc<>4900thenprint"error in 10-50":stop
30 data 173,24,208,73,02,141,24,208,96
40 data160,0,132,251,169,216,133,252,162,4,169,14,145,251,200,208,251,230,252
50 data 202,208,246,96
60 sys65409:sys837:v=53248:bk=v+33:pokebk,0
70 sm=1024:cm=55296:for i=0 to 255:o=172+i+24*int(i/16):pokesm+o,i
80 poke cm+o,i/16-(i<16):next
90 poke198,0:bo=peek(bk-1)and15:pokebk-1,14+(bo=14)*14
100 getr$:on-(r$="")-2*(r$="g")goto100,120
110 sys828:goto100
120 if(peek(v+24)and6)=6thensys828
130 ifsfthenreturn
140 c=0:fori=0to48:readn:c=c+n:poke679+i,n:next
150 ifc<>5814thenprint"error in 140-180":stop
160 data120,169,51,133,1,162,16,160,0,140,193,2
170 data140,196,2,169,208,141,194,2,169,48,141,197,2,185,1,1,153,1,1,200
180 data 208,247,238,194,2,238,197,2,202,208,238,169,55,133,1,88,96
190 c=0:fori=0to27:readn:c=c+n:poke728+i,n:next
200 ifc<>3724thenprint"error in 190-220":stop
210 data 160,0,162,24,169,32,141,233,2,140,232,2,173,4,220,153,1,1
220 data 200,208,247,238,233,2,202,208,241,96
230 sf=1:sys679:pokev+24,29
240 cd=12288:t=50:sys728
250 forb=0to7*t:pokecd+32*8+int(b/t),0:next
260 fori=0to255:forb=0to7:pokecd+i*8+b,i:next:next
270 gosub90
280 fori=0to31:forb=0to7:ad=cd+i*8+b:pokead,peek(ad+2048):next:next
290 forb=0to7:pokecd+160*8+b,peek(cd+b):next:print"press the return key"
300 getr$:ifr$<>chr$(13)thenpoke204,0:goto300
310 poke204,1:forb=0to7:readch:pokecd+b,ch:next
320 data 130,68,124,84,124,56,16,0
330 forb=0to7*t:ad=cd+int(b/t):pokead+32*8,peek(ad):next
340 gosub90
350 poke53270,peek(53270)or16
360 gosub90
370 pokebk+1,10:pokebk+2,1:m$="@ a b c d @":printm$
380 fori=0to4:forb=0to7:readch:pokecd+i*8+b,ch:next:next
390 data 68,68,252,152,220,220,48,48
400 data 48,204,204,204,252,204,204,204,32,136,136,136,168,136,136,136
410 data 16,68,68,68,84,68,68,68,48,204,204,136,168,136,68,68
420 forb=0to7:pokecd+32*8+b,0:next
430 gosub90
440 pokev+22,8:pokev+17,91
450 fori=0to3:forcc=1to11:sc=asc(mid$(m$,cc,1)):ifsc<>32thensc=sc+(i-1)*64
460 o=399+cc+i*40:pokesm+o,sc-64*(sc=-32):pokecm+o,cc/2+1
470 next:next
480 gosub90
490 pokebk+1,1:pokebk+2,7:pokebk+3,11
500 gosub90
510 pokev+17,59:hi=8192
520 fori=0to999:forb=0to7:pokehi+8*i+b,0:next:next
530 printchr$(147):sys837
540 o=3843:fori=0to39:pokehi+o+8*i,255:next
550 fori=0to24:forb=0to7:forn=1to3:ad=hi+5*(n+1)*8+40*8*i+b
560 pokead,peek(ad)or(16*n)
570 next:next:next
580 fori=0to39:pokesm+480+i,i:next
590 gosub90
600 pokev+22,24
610 gosub90
620 fori=0to24:o=10+40*i:pokecm+o,i:pokesm+5+o,5
630 pokesm+10+o,i*10:next
640 fori=0to7:forb=0to7:o=80+26+40*i+b:pokesm+o,18:pokecm+o,6:next:next
650 fori=2to7:forb=0to7:ad=hi+240+320*i+b:pokead,peek(ad)or16
660 ae=hi+1812+b*8:pokeae,255:pokeae+1,255
670 af=hi+280+312*i+b:pokeaf,peek(af)or2^(2*(int(b/2))+1)
680 next:next
690 pokebk-1,1:poke198,0:wait198,1:sys65409:end